home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug.arc / DRAGON.BUG < prev    next >
Encoding:
Text File  |  1984-03-09  |  384 b   |  22 lines
  1. to "ldragon  :size :level
  2. if :level = 0 then  fd :size  stop
  3. ldragon :size  :level - 1
  4. left 90
  5. rdragon :size  :level - 1
  6. end
  7.  
  8. to "rdragon  :size :level
  9. if :level = 0 then  fd :size  stop
  10. ldragon :size  :level - 1
  11. right 90
  12. rdragon :size  :level - 1
  13. end
  14.  
  15. to "dragon  :size :level
  16. ldragon :size :level
  17. end
  18.  
  19. 
  20. ldragon :size  :level - 1
  21. right 90
  22. rdragon :size  :level -